home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00049_Script_~issues text < prev    next >
Text File  |  1997-07-29  |  620b  |  30 lines
  1. on mousedown
  2.   if the timer > 90 then shift_down
  3. end
  4.  
  5. on mouseUp
  6.   waitcursor 14
  7.   
  8.   global qtrep_return
  9.   set obj_key = the framelabel
  10.   global iss_obj
  11.   put "tra_"&item 1 of obj_key & item 2 of obj_key into iss_obj
  12.   
  13.   set the text of field "issue text" to the text of field iss_obj 
  14.   --  put the text of field iss_obj
  15.   
  16.   puppetsprite 35, false
  17.   global issue_text,sub_open
  18.   set issue_text = FALSE
  19.   set sub_open = 1
  20.   
  21.   puppettransition 51,01,16
  22.   go to qtrep_return
  23.   see_sprite([37,38,39,40,41],true)
  24.   cursoroff 14
  25.   handcurse 38
  26.   handcurse 40
  27.   handcurse 41
  28.   updatestage
  29. end
  30.